SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00058_Snapshot Button Sprite Script.ls

Text File | 1995-10-13 | 970 b | 30 lines

on mouseDown
  global giVid2Sprite, giVidSprite, giTempVid2Cast, giTempVidCast, giVid3Sprite, giTempVid3Cast, glShotList, gbShotFlag
  buttonLogic()
  if the result = 1 then
    puppetSound("snapshot")
    set tempSprite to 0
    if the visible of sprite giVid2Sprite = 1 then
      set tempSprite to giVid2Sprite
      set tempCast to giTempVid2Cast
    else
      if the visible of sprite giVidSprite = 1 then
        set tempSprite to giVidSprite
        set tempCast to giTempVidCast
      else
        if the visible of sprite giVid3Sprite = 1 then
          set tempSprite to giVid3Sprite
          set tempCast to giTempVid3Cast
        end if
      end if
    end if
    if gbShotFlag = 0 then
      set glShotList to [the fileName of cast tempCast, the movieTime of sprite tempSprite]
      set gbShotFlag to 1
    else
      append(glShotList, the fileName of cast tempCast)
      append(glShotList, the movieTime of sprite tempSprite)
    end if
  end if
end